home *** CD-ROM | disk | FTP | other *** search
/ Let's Learn About Machines / Let's Learn About Machines.iso / mac / macfiles / Things / Shared.Dxr / 01109.ls < prev    next >
Encoding:
Text File  |  1997-09-18  |  458 b   |  18 lines
  1. on exitFrame
  2.   global tagOrder
  3.   set x to 0
  4.   set locHtemp to -20
  5.   repeat with d = 1 to the number of chars in tagOrder
  6.     set the castNum of sprite (33 + x) to the number of cast char d of tagOrder
  7.     updateStage()
  8.     set locHtemp to locHtemp + 60
  9.     set the locH of sprite (33 + x) to locHtemp
  10.     set the locV of sprite (33 + x) to 432
  11.     set x to x + 1
  12.   end repeat
  13.   repeat with f = 33 to 37
  14.     puppetSprite(f, 1)
  15.   end repeat
  16.   sound stop 1
  17. end
  18.